home *** CD-ROM | disk | FTP | other *** search
/ Garden Fax: Trees, Shrubs, Roses & Conifers / Garden Fax - Trees, Shrubs, Roses & Conifers (1991)(CDTV Publishing)[!].iso / s / startup-sequence.bak < prev    next >
Text File  |  1978-01-06  |  1KB  |  56 lines
  1. ;
  2. ; Startup sequence for CDTVGQA
  3. ;
  4. ; Variants :-
  5. ;            GQA:        set to drive (CD0: or DF0:) where s/w is
  6. ;              APPLIC:   path for image data, i.e. subject matter
  7. ;            FILMS:    path for film scripts (DF0: or APPLIC:IMAGES)
  8. ;
  9. CD0:SYSTEM/C/ASSIGN sys: CD0:SYSTEM
  10. CD0:SYSTEM/C/ASSIGN c:   SYS:c
  11. assign GQA: df0:
  12. assign APPLIC: CD0:INDOOR
  13. ;
  14. binddrivers
  15. assign L: SYS:l
  16. assign FONTS: CD0:FONTS
  17. assign S: GQA:s
  18. assign DEVS: SYS:devs
  19. assign LIBS: SYS:libs
  20. makedir ram:tr
  21. assign t: ram:tr
  22. assign IMAGES:    APPLIC:IMAGES
  23. ; ASSIGN FILMS:     APPLIC:IMAGES        ; ONE OR OTHER OF
  24. ASSIGN FILMS:     DF0:                ; THESE
  25. ASSIGN COMIMAGES: APPLIC:IMAGES/COM
  26. ASSIGN INDIMAGES: APPLIC:IMAGES/IND
  27. ASSIGN PIMAGES:   APPLIC:IMAGES/P
  28. ASSIGN SIMAGES:   APPLIC:IMAGES/S
  29. ASSIGN PICONS:    APPLIC:IMAGES/PICONS
  30. ASSIGN DBDATA:    CD0:DATA
  31. ; ! 
  32. ; ! make sure you remove this next line for the CD title -- 
  33. ; !
  34. Addbuffers df0: 10
  35. ; !
  36. ; ! -- it won't have a floppy drive
  37. ; !
  38. cd c:
  39. Sys:System/FastMemFirst ; move C00000 memory to last in list
  40. BindDrivers
  41. FF >NIL: -0 ;speed up Text
  42. resident CLI L:Shell-Seg SYSTEM pure add; activate Shell
  43. resident c:Execute pure
  44. mount newcon:
  45. ;
  46. failat 11
  47. run execute s:StartupII ;This lets resident be used for rest of script
  48. wait >NIL: 5 mins ;wait for StartupII to complete (will signal when done)
  49. ;
  50. SYS:System/SetMap gb ;Activate the ()/* on keypad
  51. path ram: c: sys:system s: add
  52. ASSIGN FONTS:    CD0:FONTS
  53. GQA:ovlcdtvgqa GQA:ind.setup
  54. ; NEWCLI
  55. ;
  56.